library("data.table")
library("dplyr")
library("tidyr")
library("ggplot2")
library("ggalt")

data_validation <- read.csv("report/internalvalidation.csv")

ggplot(data_validation)+
  geom_point(aes(x=sakernas, y=simulated, colour = var))+
  geom_abline(intercept = 0, slope = 1, size = 0.5)+
  labs(x="SAKERNAS",
       y="Simulated",
       colour = "Variable")

ggsave("viz/internalvalidation.png", 
       plot = last_plot(),
       width = 175,
       height = 125,
       units = "mm")
